home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g49.bas < prev    next >
BASIC Source File  |  1991-10-18  |  899b  |  30 lines
  1. 100 ' G49 T.WAKAMATSU
  2. 110 CD PLAY 11:CLS:PI=3.14159!
  3. 120 C(1)=1:C(2)=1:C(3)=1:C(4)=5
  4. 130 FOR I=0 TO 1438 STEP 2
  5. 140   U=I/180*PI
  6. 150   R=(COS(U*2)+SIN(U*2))*50+155
  7. 160   X1=R*COS(U/4)+235:Y1=R*SIN(U/4)+235
  8. 170   Y2=R*COS(U/4)+235:X2=R*SIN(U/4)+410
  9. 180   IF I=360*Q THEN Q=Q+1
  10. 190   LINE(X1,Y1)-(X2,Y2),PSET,C(Q)
  11. 200 NEXT I
  12. 210 FOR D=1 TO 10000:NEXT D
  13. 220 Q=1:C(1)=2:C(2)=2:C(3)=2:C(4)=3
  14. 230 FOR I=0 TO 1438 STEP 2
  15. 240   U=I/180*PI
  16. 250   R=(COS(U*2)+SIN(U*2))*50+155
  17. 260   X1=R*COS(U/4)+235:Y1=R*SIN(U/4)+235
  18. 270   Y2=R*COS(U/4)+235:X2=R*SIN(U/4)+410
  19. 280   IF I=360*Q THEN Q=Q+1
  20. 290   LINE(X1,Y1)-(X2,Y2),PSET,C(Q)
  21. 300 NEXT I
  22. 310 FOR D=1 TO 10000:NEXT D
  23. 320 FOR I=0 TO 1438 STEP 2
  24. 330   U=I/180*PI':U=1440-U
  25. 340   R=(COS(U*2)+SIN(U*2))*50+155
  26. 350   X1=R*COS(U/4)+235:Y1=R*SIN(U/4)+235
  27. 360   Y2=R*COS(U/4)+235:X2=R*SIN(U/4)+410
  28. 370   LINE(X1,Y1)-(X2,Y2),PSET,0
  29. 380 NEXT I
  30.